home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / SecalDemo / Inc / libcalls / wb.inc < prev   
Text File  |  1998-06-24  |  2KB  |  74 lines
  1. pattern wbPrivate1 is
  2.     push a6;
  3.     a6:=WorkbenchBase; jsr [a6-30];
  4.     pop a6;
  5. endp;                                                            # WBPRIVATE1
  6.  
  7. pattern wbPrivate2 is
  8.     push a6;
  9.     a6:=WorkbenchBase; jsr [a6-36];
  10.     pop a6;
  11. endp;                                                            # WBPRIVATE2
  12.  
  13. pattern wbPrivate3 is
  14.     push a6;
  15.     a6:=WorkbenchBase; jsr [a6-42];
  16.     pop a6;
  17. endp;                                                            # WBPRIVATE3
  18.  
  19. pattern AddAppWindowA(_id,_userdata,_window,_msgport,_taglist) is
  20.     push a2\a6;
  21.     safe d0.l:=_id; d1.l:=_userdata; a0:=_window; a1:=_msgport; a2:=_taglist;;
  22.     a6:=WorkbenchBase; jsr [a6-48];
  23.     pop a2\a6;
  24. endp;                                                            # ADDAPPWINDOWA
  25.  
  26. pattern RemoveAppWindow(_appWindow) is
  27.     push a6;
  28.     a0:=_appWindow;
  29.     a6:=WorkbenchBase; jsr [a6-54];
  30.     pop a6;
  31. endp;                                                            # REMOVEAPPWINDOW
  32.  
  33. pattern AddAppIconA(_id,_userdata,_text,_msgport,_lock,_diskobj,_taglist) is
  34.     push a2\a3\a4\a6;
  35.     safe d0.l:=_id; d1.l:=_userdata; a0:=_text; a1:=_msgport; a2:=_lock; a3:=_diskobj; a4:=_taglist;;
  36.     a6:=WorkbenchBase; jsr [a6-60];
  37.     pop a2\a3\a4\a6;
  38. endp;                                                            # ADDAPPICONA
  39.  
  40. pattern RemoveAppIcon(_appIcon) is
  41.     push a6;
  42.     a0:=_appIcon;
  43.     a6:=WorkbenchBase; jsr [a6-66];
  44.     pop a6;
  45. endp;                                                            # REMOVEAPPICON
  46.  
  47. pattern AddAppMenuItemA(_id,_userdata,_text,_msgport,_taglist) is
  48.     push a2\a6;
  49.     safe d0.l:=_id; d1.l:=_userdata; a0:=_text; a1:=_msgport; a2:=_taglist;;
  50.     a6:=WorkbenchBase; jsr [a6-72];
  51.     pop a2\a6;
  52. endp;                                                            # ADDAPPMENUITEMA
  53.  
  54. pattern RemoveAppMenuItem(_appMenuItem) is
  55.     push a6;
  56.     a0:=_appMenuItem;
  57.     a6:=WorkbenchBase; jsr [a6-78];
  58.     pop a6;
  59. endp;                                                            # REMOVEAPPMENUITEM
  60.  
  61. pattern wbPrivate4 is
  62.     push a6;
  63.     a6:=WorkbenchBase; jsr [a6-84];
  64.     pop a6;
  65. endp;                                                            # WBPRIVATE4
  66.  
  67. pattern WBInfo(_lock,_name,_screen) is
  68.     push a2\a6;
  69.     safe a0:=_lock; a1:=_name; a2:=_screen;;
  70.     a6:=WorkbenchBase; jsr [a6-90];
  71.     pop a2\a6;
  72. endp;                                                            # WBINFO
  73.  
  74.